home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Libraries / ClutFade 1.3 / clut_fade 1.3 source & libs / For Pascal / clut_fade.p < prev   
Encoding:
Text File  |  1994-12-21  |  759 b   |  28 lines  |  [TEXT/AOqc]
  1. { Clut_Fade 1.2 interface file for Think Pascal  }
  2. { by Chris Sollitto  }
  3. { 12/21/94  }
  4.  
  5. { To use this file with the clut_fade.lib library, be sure to    }
  6. {  include this file in your project after clut_fade.lib and      }
  7. {  place "clutFade" in the uses clause of your main program  }
  8.  
  9.  
  10. unit clutFade;
  11.  
  12. interface
  13.  
  14.  
  15.     const
  16.         fadeMainOnly = 1;
  17.         fadeAll = 2;
  18.         fadeAllButMain = 4;
  19.  
  20.     procedure fade_to_black (numSteps: longInt; fadeFlags: integer; fadeOut: BOOLEAN);
  21.     procedure fade_to_clut (numSteps: longInt; destTab: CTabHandle; aGDevice: GDHandle);
  22.     procedure fade_to_color (numSteps: longInt; destColor: RGBColor; aGDevice: GDHandle);
  23.     procedure copy_gdevice_clut (aGDevice: GDHandle; var copyOfClut: CTabHandle);
  24.  
  25. { using clut_fade }
  26.  
  27. implementation
  28. end.